home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / geos / pstogeos.arc / PS TO GEOS (.txt)
GEOS ConVerT  |  1993-04-15  |  4KB  |  140 lines
  1. PS to GEOS
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4. { GRABBER
  5. ICON EDITOR
  6. ICON EDIT 2.1
  7. CONVERT
  8. DESK TOP
  9. PS to GEOS
  10. George Selembo
  11. Converts Print Shop graphics into Photo Scrap.  Photo Scrap must already exist.
  12. 22528:
  13. 53281,0:
  14. 53280,0:
  15. "     
  16. "     
  17. PRINT SHOP TO GEOS CONVERTER
  18. "     
  19. 15,"U1:2 0"
  20. #2,A$:TN
  21. (0)):
  22. #2,A$:SN
  23. 15,"B-P:2,"
  24. #2,A$:
  25. (131)
  26. #2,A$:TP
  27. (0)):
  28. #2,A$:SP
  29. (0)):H$
  30. #2,A$:
  31. (160)
  32. 15,"B-P:2,"
  33. #2,A$:SL
  34. (0)):
  35. #2,A$:SH
  36.   PLACE PRINT SHOP DATA DISK IN DRIVE"
  37.        PRESS 
  38. RETURN
  39.  WHEN READY..."
  40.  970:
  41. 53280,0
  42.   ARE THESE GRAPHICS FOR A 
  43. OMMODORE"
  44.            OR 
  45. THER PRINTER?";
  46. TYPE FILE NAME OR PRESS 
  47. RETURN
  48.  FOR LIST":
  49. 15,8,15:
  50. 8,8,0,N$:
  51. 15,EN,EB$,ET,ES
  52. (EB$)
  53. 2)EB$:N$
  54. 2)"LOADING "
  55. 185,0:
  56. 780,0:
  57. 781,0:
  58. 782,88:
  59. 65493:
  60.         PLACE GEOS DISK IN DRIVE"
  61.        PRESS 
  62. RETURN
  63.  WHEN READY..."
  64. 53280,0:
  65.          SAVING PHOTOSCRAP FILE"
  66. 15,8,15,"I0":
  67. 15,EN,EB$,ET,ES:
  68. 2,8,2,"S,U,W":
  69. 15,EN,EB$,ET,ES:
  70. M));:
  71. (191)
  72. (0);:
  73.  80,104,111,116,111,32,83,99,114,97,112
  74. 2,8,2,"#":T
  75. 1:DI$
  76. NO PHOTO SCRAP FILE":
  77. TP:S2
  78. SP:K1
  79. 1:DI$
  80. 15,"B-P:2,"
  81. (S2);
  82. 15,"B-P:2,"
  83. 256):FL
  84. (FH);
  85. 15,"U2:2 0"
  86. 15,"U1:2 0"
  87. 15,"B-P:2,"
  88. (SP);
  89. 15,"B-P:2,"
  90. 15,"U2:2 0"
  91. 15,"S0:S"
  92. DONE"
  93.     PLACE 
  94.  MASTER DISK IN DRIVE"
  95.        HIT 
  96. RESTORE
  97.  TO REBOOT GEOS":
  98. 15,8,15,"I0":
  99. 2,8,2,"#":X
  100.   THE GRAPHIC FILES ON THIS DISK ARE:"
  101. 15,"U1:2 0"
  102. #2,A$:TN
  103. (0)):
  104. #2,A$:SN
  105. 15,"B-P:2,"
  106. #2,A$:FT
  107. (0)):
  108. 15,"B-P:2,"
  109. #2,A$:FS
  110. (0)):
  111. #2,A$:FS
  112. 15,"B-P:2,"
  113. 5):D$
  114. #2,A$:
  115. (160)
  116. "   "
  117. (34):N
  118. "        PRESS 
  119. RETURN
  120.  TO SEE MORE"
  121.     TYPE _ AND PRESS 
  122. RETURN
  123.  TO ABORT"
  124.         NONE
  125.       PLACE CURSOR NEXT TO NAME OR"
  126. "   TYPE NAME AND PRESS 
  127. RETURN
  128.  TO LOAD":
  129.     PLACE ANOTHER DATA DISK IN DRIVE"
  130.        PRESS 
  131. RETURN
  132.  WHEN READY..."
  133. 53280,0:
  134. 53280,2
  135. 53280,0:A
  136. (EB$)
  137.            RESETTING DRIVE...
  138. 15,"UJ":
  139. 1500:
  140.